home *** CD-ROM | disk | FTP | other *** search
/ Adwarp English 4 / Adwarp_English_04_1997-07-25_Kreciki.d64 / long&fast .src < prev    next >
Text File  |  2023-02-26  |  966b  |  63 lines
  1.  
  2.          ;-anims depacker v1.0-
  3.          ;(c) by baldhead/fatum
  4.          ;depacker is only $36!
  5.          ;    long and fast
  6.  
  7.  
  8. from     = $02
  9. to       = $04
  10. cbyte    = $06
  11. wsk      = $22
  12.  
  13.  
  14.         ;ldx #0         frame
  15.         ;lda $3f00,x
  16.         ;sta from+1
  17.         ;lda $3f80,x
  18.         ;sta from
  19.         ;lda #<addy     destination
  20.         ;ldy #>addy     adress
  21.         ;sta send+1
  22.         ;sta send+2
  23.         ;jsr unpack
  24.  
  25.  
  26.  
  27.          *= $1000
  28.  
  29.  
  30. unpack   ldy #1
  31.  
  32.          lda (from),y
  33.          sta cbyte
  34.  
  35. depak    iny
  36.          bne *+4
  37.          inc from+1
  38.          lda (from),y
  39.          cmp cbyte
  40.          beq okey
  41.          ldx #1
  42.          bne send
  43.  
  44. okey     iny
  45.          bne *+4
  46.          inc from+1
  47.          lda (from),y
  48.          beq end
  49.          tax
  50.          iny
  51.          bne *+4
  52.          inc from+1
  53.          lda (from),y
  54. send     sta $2000
  55.          inc send+1
  56.          bne *+5
  57.          inc send+2
  58.          dex
  59.          bne send
  60.          beq depak
  61. end      rts
  62.  
  63.